#!/usr/bin/perl
#Programmer: Rory Carmichael
#Purpose: translate a bunch of fasta files
#Usage: proteinize.pl 

foreach my $file (`ls *.fasta`) {
	chomp $file;
	my $prefix = [split(/\./, $file)]->[0];
	`blind_translate.pl $file > $prefix.fastp`;
}
